home *** CD-ROM | disk | FTP | other *** search
/ Komputer for Alle: Internet utan modem / Internet CD.iso / web / computer / wwweps~1.com / adam / garbage.dcr / Internal_3.ls < prev    next >
Encoding:
Text File  |  1997-03-17  |  467 b   |  30 lines
  1. on exitFrame
  2.   if the timer > 1800 then
  3.     startTimer()
  4.     change_all()
  5.   end if
  6.   updateStage()
  7.   go(the frame)
  8. end
  9.  
  10. on mouseDown
  11.   global board_list
  12.   set i to the clickLoc
  13.   set h to (the locH of i - 11) / 70
  14.   set v to (the locV of i - 6) / 70
  15.   set n to h + (v * 4) + 1
  16.   if h < 0 then
  17.     return 
  18.   end if
  19.   if h > 3 then
  20.     return 
  21.   end if
  22.   if v < 0 then
  23.     return 
  24.   end if
  25.   if v > 3 then
  26.     return 
  27.   end if
  28.   move_me(getAt(board_list, n), h, v)
  29. end
  30.